home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Filtro.dxr / 00008_back to 2 da risposta OK.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  389 b   |  21 lines
  1. on exitFrame
  2.   global gRispostaSbagliata, gPunteggio, gPrimogiro
  3.   startTimer()
  4.   cursor(4)
  5.   repeat with i = 1 to the maxinteger
  6.     if the timer < (60 * 4) then
  7.       nothing()
  8.       next repeat
  9.     end if
  10.     exit repeat
  11.   end repeat
  12.   cursor(-1)
  13.   if gPrimogiro = 1 then
  14.     gPrimogiro = 0
  15.   end if
  16.   if gRispostaSbagliata = 0 then
  17.     gPunteggio = gPunteggio + 1
  18.   end if
  19.   go(1)
  20. end
  21.